home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / MF-Pascal_0.2 / test4.p < prev    next >
Text File  |  1990-02-23  |  189b  |  16 lines

  1. program main(input,output);
  2. var
  3.   i,j: integer;
  4. Begin
  5.   i := 0;
  6.   while i < 300 do
  7.   Begin
  8.     j := 0;
  9.     while j < 10000
  10.     do Begin
  11.       j := j + 1;
  12.     end;
  13.     i := i+1;
  14.   end;
  15. end.
  16.